Fix menu binding for files in fileset

* lisp/filesets.el (filesets-remake-shortcut): We want the callback of
the menu item, not a list that contains the callback.  (Bug#44764)

diff --git a/lisp/filesets.el b/lisp/filesets.el
index 84196561fcdcf655a045fb2249135cd5c9b666c7..473f2858ddd9ca6a4ba7c4d0739fe2e645458727 100644 (file)
--- a/lisp/filesets.el
+++ b/lisp/filesets.el
@@ -1909,7 +1909,7 @@ User will be queried, if no fileset name is provided."
                       (substring (elt submenu 0) 2))))
     (if (listp submenu)
        (cons name (cdr submenu))
-      (apply 'vector (list name (cdr (append submenu nil)))))))
+      (apply 'vector (list name (cadr (append submenu nil)))))))
 ;      (vconcat `[,name] (subseq submenu 1)))))
 
 (defun filesets-wrap-submenu (submenu-body)